home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / 1-bc-cad.zip / DMWTH.LSP < prev    next >
Text File  |  1992-05-11  |  450b  |  15 lines
  1. ;THIS FILE WILL CHANGE A DIM'S TEXT WIDTH
  2. (defun c:DMWTH ()
  3.   (command)
  4.   (prompt "\nSelect objects for the loop, ")
  5.   (setq ssloop (ssget))
  6.   (setq i 0)
  7.   (while (setq obj (ssname ssloop (- (setq i (1+ i)) 1)))
  8.     (setq inspt (cdr (assoc '10 (entget obj))))
  9.     (command)
  10.     (setq DS (getreal "\nDIM. SCALE?"))
  11.     (command "STYLE" "" "" "" DS "" "" "" "" "DIM1" "UPDATE" OBJ "" "STYLE" "" "" "" ".85" "" "" "" "")
  12.   ) 
  13.   (prin1)
  14. )
  15.